* thingatpt.el (number-at-point): Apply a thing-at-point property.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54285a589ebce12166e02dd4266bc0a8ef0e50f1..2474574de92cdf7449ad854919bf0e5feb6ad9d5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-10-29  Chong Yidong  <cyd@gnu.org>
+
+       * thingatpt.el (number-at-point): Apply a thing-at-point property.
+
 2012-10-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * vc/diff-mode.el (diff-context->unified): Don't get confused by "hunk

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index dedd9c8c1898e06d9d08d06ae1e4133cc20a7226..50e3b7856961b4d9382d915709ced69405f11ccc 100644 (file)
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -509,6 +509,7 @@ Signal an error if the entire string was not used."
 (defun number-at-point ()
   "Return the number at point, or nil if none is found."
   (form-at-point 'sexp 'numberp))
+(put 'number 'thing-at-point 'number-at-point)
 ;;;###autoload
 (defun list-at-point ()
   "Return the Lisp list at point, or nil if none is found."